perm filename STUF.F4[SCR,LCS] blob sn#375400 filedate 1978-08-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(72),MM(5)
C00003 ENDMK
CāŠ—;
	DIMENSION I(72),MM(5)
	DATA LA/"605004020100/,LZ/"751004020100/,MAG/"200000000000/
	TYPE 1
	ACCEPT 2,I
1	FORMAT(' TYPE '/)
2	FORMAT(72A1)
3	FORMAT(1X10A5)
	M=1
	L=0
  	DO 5  K=1,72
	NN=I(K)
	IF(L.NE.0)GO TO 9
	IF(NN.EQ.' ')GO TO 8
C IGNORE LEADING BLANKS
9	L=L+1
	IF(NN.GE.LA.AND.NN.LE.LZ)I(K)=NN-MAG
C ABOVE CHANGES LOWER CASE LETTERS TO UPPER.
	MM(L)=I(K)
	IF(NN.NE.'.'.AND.NN.NE.' '.AND.NN.NE.';')GO TO 5
CC	IF(K-M.EQ.5)GO TO 6
CC	DO 7 LL=K,M+4
CC	MM(L)=' '
CC7	L=L+1
6	CALL STUFIT(J,MM,L-1)
	TYPE 3,J
4	ACCEPT 2,JJ
	L=0
8	M=K+1
5	CONTINUE
	END